

<%
	dim conn2
	dim connstr2
	dim db2
	db2="../db/chengshi.mdb"
	Set conn2 = Server.CreateObject("ADODB.Connection")
	connstr2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db2)
	conn2.Open connstr2
	sub closedatabase()
	  conn2.close
      set conn2=Nothing
    End sub
	
%>   
